home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 199 / 199.d81 / b.print text (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  229b  |  12 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 printchr$(14)
  3. 20 print"[147]print to s[146]creen or p[146]rinter";:inputp$
  4. 30 ifp$<>"s"andp$<>"p"then20
  5. 40 ifp$="p"then60
  6. 50 open1,3:goto70
  7. 60 open1,4,7
  8. 70 open2,dv,8,"gear docs seq"
  9. 80 get#2,a$:ss=st:print#1,a$;:ifss=0then80
  10. 90 print#1:close1
  11. 100 close2
  12.